home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / form1040.sit / Form 1040 / card_9920.txt < prev    next >
Text File  |  1988-02-12  |  7KB  |  303 lines
  1. -- card: 9920 from stack: in
  2. -- bmap block id: 11415
  3. -- flags: 4000
  4. -- background id: 6557
  5. -- name: 18
  6. ----- HyperTalk script -----
  7. On OpenCard
  8.   Put 18 Into Bkgnd field ID 26
  9. end OpenCard
  10.  
  11. On ClearInfo
  12.   Put 0 into Card field ID 10 of Card ID 9920 -- line 2
  13.   Put 0 into Card field ID 11 of Card ID 9920 -- line 3
  14.   Put 0 into Card field ID 12 of Card ID 9920 -- line 4
  15. end ClearInfo
  16.  
  17.  
  18. -- part 1 (field)
  19. -- low flags: 01
  20. -- high flags: 0000
  21. -- rect: left=89 top=71 right=100 bottom=308
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 10
  27. -- style flags: 0
  28. -- line height: 13
  29. -- part name: 
  30.  
  31.  
  32. -- part 2 (field)
  33. -- low flags: 01
  34. -- high flags: 0000
  35. -- rect: left=89 top=104 right=133 bottom=308
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 10
  41. -- style flags: 0
  42. -- line height: 13
  43. -- part name: 
  44.  
  45.  
  46. -- part 3 (field)
  47. -- low flags: 01
  48. -- high flags: 0000
  49. -- rect: left=89 top=139 right=168 bottom=395
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 10
  55. -- style flags: 0
  56. -- line height: 13
  57. -- part name: 
  58.  
  59.  
  60. -- part 4 (field)
  61. -- low flags: 01
  62. -- high flags: 0002
  63. -- rect: left=307 top=83 right=99 bottom=333
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 3
  68. -- text size: 10
  69. -- style flags: 256
  70. -- line height: 13
  71. -- part name: 
  72.  
  73.  
  74. -- part 5 (field)
  75. -- low flags: 01
  76. -- high flags: 0002
  77. -- rect: left=307 top=117 right=133 bottom=333
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 3
  82. -- text size: 10
  83. -- style flags: 256
  84. -- line height: 13
  85. -- part name: 
  86.  
  87.  
  88. -- part 6 (field)
  89. -- low flags: 01
  90. -- high flags: 0002
  91. -- rect: left=394 top=152 right=168 bottom=420
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 3
  96. -- text size: 10
  97. -- style flags: 256
  98. -- line height: 13
  99. -- part name: 
  100.  
  101.  
  102. -- part 7 (button)
  103. -- low flags: 00
  104. -- high flags: A003
  105. -- rect: left=107 top=70 right=85 bottom=144
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Add
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   Set cursor to 4
  117.   Put 0 into temp
  118.   Add card field ID 40 of Card ID 9317 to Temp -- line 1a
  119.   Add card field ID 41 of Card ID 9317 to Temp -- line 1b
  120.   Add card field ID 42 of Card ID 9317 to Temp -- line 1c
  121.   Put temp into Card field ID 10 of Card ID 9920
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 8 (button)
  127. -- low flags: 00
  128. -- high flags: A003
  129. -- rect: left=106 top=104 right=119 bottom=170
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Multiply
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   Set cursor to 4
  141.   Put 75/100 into number
  142.   Put Card field ID 3 of Card ID 2598 into Total
  143.   Set numberformat to "#########0.00"
  144.   Put Total * number into Card field ID 11 of Card ID 9920
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 9 (button)
  150. -- low flags: 00
  151. -- high flags: 8003
  152. -- rect: left=106 top=139 right=154 bottom=172
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Subtract
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   Set cursor to 4
  164.   Put 0 into temp
  165.   Put Card field ID 10 of Card ID 9920 into temp
  166.   Put Card field ID 11 of Card ID 9920 into temp1
  167.   Subtract Temp1 from temp
  168.   If Temp >= 0 then
  169.     Put temp into Card Field ID 12  of Card ID 9920
  170.   Else
  171.     put 0 into Card field ID 12 of card ID 9920
  172.   End if
  173.  
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 10 (field)
  179. -- low flags: 01
  180. -- high flags: 0002
  181. -- rect: left=332 top=83 right=99 bottom=416
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 65535
  185. -- font id: 3
  186. -- text size: 10
  187. -- style flags: 0
  188. -- line height: 13
  189. -- part name: 
  190. ----- HyperTalk script -----
  191. On MouseUp
  192.   Send "MouseUp" to Card Button ID 7 of Card ID 9920
  193. End MouseUp
  194.  
  195.  
  196. -- part 11 (field)
  197. -- low flags: 01
  198. -- high flags: 0002
  199. -- rect: left=332 top=117 right=133 bottom=416
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 65535
  203. -- font id: 3
  204. -- text size: 10
  205. -- style flags: 0
  206. -- line height: 13
  207. -- part name: 
  208. ----- HyperTalk script -----
  209. On MouseUp
  210.   Send "MouseUp" to Card Button ID 8 of Card ID 9920
  211. End MouseUp
  212.  
  213.  
  214. -- part 12 (field)
  215. -- low flags: 01
  216. -- high flags: 0002
  217. -- rect: left=419 top=152 right=168 bottom=503
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 65535
  221. -- font id: 3
  222. -- text size: 10
  223. -- style flags: 0
  224. -- line height: 13
  225. -- part name: 
  226. ----- HyperTalk script -----
  227. On MouseUp
  228.   Send "MouseUp" to Card Button ID 9 of Card ID 9920
  229. End MouseUp
  230.  
  231.  
  232. -- part 14 (field)
  233. -- low flags: 01
  234. -- high flags: 0000
  235. -- rect: left=1 top=69 right=84 bottom=65
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 0
  239. -- font id: 3
  240. -- text size: 10
  241. -- style flags: 0
  242. -- line height: 13
  243. -- part name: 
  244.  
  245.  
  246. -- part contents for card part 1
  247. ----- text -----
  248. 2.                lines 1a through 1c, and enter
  249.      the total here . . . . . . . . . . . . . . . . . . . . . 
  250.  
  251. -- part contents for card part 2
  252. ----- text -----
  253. 3.                        the amount on Form 1040,
  254.      line 31, by 7.5%(.075) . . . . . . . . . . . . 
  255.  
  256. -- part contents for card part 3
  257. ----- text -----
  258. 4.                        line 3 from line 2. If zero,  or less, 
  259.       enter -0-.  Total medical and dental . . . . . . . . . . . . . . . . . . . . . . . 
  260.  
  261. -- part contents for card part 4
  262. ----- text -----
  263. 2
  264.  
  265. -- part contents for card part 5
  266. ----- text -----
  267. 3
  268.  
  269. -- part contents for card part 6
  270. ----- text -----
  271. 4
  272.  
  273. -- part contents for background part 26
  274. ----- text -----
  275. 18
  276.  
  277. -- part contents for background part 20
  278. ----- text -----
  279. Continue to next card
  280.  
  281. -- part contents for background part 13
  282. ----- text -----
  283. Medical and Dental Expenses
  284.  
  285. -- part contents for card part 14
  286. ----- text -----
  287. (Continued)
  288.  
  289. -- part contents for background part 40
  290. ----- text -----
  291. 4:07 PM
  292.  
  293. -- part contents for card part 10
  294. ----- text -----
  295. 0
  296.  
  297. -- part contents for card part 11
  298. ----- text -----
  299. 0
  300.  
  301. -- part contents for card part 12
  302. ----- text -----
  303. 0